home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1996 October / MACPOWER-1996-10.ISO.7z / MACPOWER-1996-10.ISO / Shareware Paradise / MM倶楽部 / CatalogHTML.sit / CatalogHTML / CatalogHTML1.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1996-06-01  |  2KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2858</cardID>
  8.     <listID>2414</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>224</width>
  14.         <height>336</height>
  15.     </cardSize>
  16.     <script>ON OPENSTACKLOCK SCREENPUT TOP OF CARD WINDOW INTO TCSET HEIGHT OF CARD WINDOW TO 145SET TOP OF CARD WINDOW TO TCUNLOCK SCREEN--  SEND MOUSEUP TO BTN 1PASS OPENSTACKEND OPENSTACKFUNCTION GETHREF HTML  --- GET DIRECTORY FROM <A>TAG IN HTML.IF "><A HREF=" IS IN HTML THENDELETE CHAR 1 TO OFFSET("><A HREF=",HTML)+9 OF HTMLREPEAT WITH I=OFFSET(QUOTE,HTML) DOWN TO 1IF CHAR I OF HTML IS "/" THEN EXIT REPEATEND REPEATRETURN CHAR 1 TO I OF HTMLELSERETURN "./"END IFEND GETHREFON UDARW FNAME,LOWERLIMITIF THE CLICKV < ITEM 2 OF LOC OF THE TARGETTHENSET ICON OF THE TARGET TO "U-ARW"PUT 1 INTO VYELSESET ICON OF THE TARGET TO "D-ARW"PUT -1 INTO VYEND IFIF CD FLD FNAME+VY>=LOWERLIMIT THEN ADD VY TO CD FLD FNAMEIF THE MOUSE IS UP THENSET ICON OF THE TARGET TO "UDARW"-- SELECT TEXT OF CD FLD FNAMEEXIT UDARWEND IFPUT THE TICKS INTO TREPEATPUT THE TICKS INTO T2REPEATIF THE TICKS-T2 > MAX(0,10-(THE TICKS-T) DIV 8) OR THE MOUSE IS UPTHEN EXIT REPEATEND REPEATIF THE MOUSE IS UP THEN EXIT REPEATIF CD FLD FNAME+VY>=LOWERLIMIT THEN ADD VY TO CD FLD FNAMEEND REPEATSET ICON OF THE TARGET TO "UDARW"-- SELECT TEXT OF CD FLD FNAMEEND UDARWON CHKFLD FNAMEIF CD FLD FNAME IS NOT A NUMBER THENANSWER"ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄"&QUOTE&FNAME&quote&"ﾃ‡窶ｦﾃ‡ﾃ陛ｪﾃｮﾃｭlﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"EXIT TO HYPERCARDEND IFEND CHKFLD</script>
  17.     <background id="2641" file="background_2641.xml" name="" />
  18.     <card id="2858" file="card_2858.xml" marked="false" name="" owner="2641" />
  19. </stack>
  20.